Objective of workshop

To start using the dplyr package from the tidyverse to select columns and filter data.

What this workshop will cover

In this workshop, the aim is to cover how to start working with the key library from the tidyverse, dplyr. We will be covering:

  • Introduce the use of pipes
  • Indexing with the select function from dplyr
  • Conditional indexing of data with the filter function from dplyr

What is the tidyverse?

image credit: Analytics Vidhya

The tidyverse is a collection of R packages that are designed for data science. These packages share design, syntax, and philosophy. These packages cover the import of data (readr and haven), manipulation and transformation of data (dplyr, tidyr, stringr, purrr, forcats, and lubridate), visualisation (ggplot and it’s extensions), and analysis (tidymodels).

Essentially, the tidyverse makes data science in R less painless, improving your experience of R and data science, especially in the data cleaning and wrangling stages.

What is tidy data?

The tidyverse has a focus on working with tidy data, or making data tidy, ready for visualisation and analysis. So what does tidy data mean?

When your data is tidy, each column is a variable, each row is an observation, and each cell is a single observation, as per our example below:

# tidy data example
tidy_df <- data.frame(
  id = 1:6,
  name = c("floof", "max", "cat", "donut", "merlin", "panda"),
  colour = c("grey", "black", "orange", "grey", "black", "calico")
)

tidy_df
##   id   name colour
## 1  1  floof   grey
## 2  2    max  black
## 3  3    cat orange
## 4  4  donut   grey
## 5  5 merlin  black
## 6  6  panda calico

Messy data is inconsistent and unique, making it harder to work with, and harder for others to work with. See this example of a messy dataset that would be hard to work with. We would have to split up the animal column to name and colour. In later workshops, we will cover how to deal with messy data.

# example messy data frame
messy_df <- data.frame(
  id = c(1,1,2,2,3,3,4,4,5,5,6,6),
  animal = c("floof", "grey",
             "max", "black",
             "cat", "orange",
             "donut", "grey",
             "merlin", "black",
             "panda", "calico")
)

messy_df
##    id animal
## 1   1  floof
## 2   1   grey
## 3   2    max
## 4   2  black
## 5   3    cat
## 6   3 orange
## 7   4  donut
## 8   4   grey
## 9   5 merlin
## 10  5  black
## 11  6  panda
## 12  6 calico

Image credit: Julie Lowndes and Allison Horst

See this excellent article, which has lots of nice images, for a summary :-https://www.openscapes.org/blog/2020/10/12/tidy-data/

Package install task

In this workshop we will be using three packages: magrittr, dplyr, and readr.

Using the code chunk below, install all three of these packages. Note that dplyr is large and might take a minute or so to install, we have added the Ncpus = 6 argument which should speed things up a bit.

# your code here
install.packages("", Ncpus = 6)
install.packages("", Ncpus = 6)
install.packages("", Ncpus = 6)

Also note that you can install the whole tidyverse with install.packages(“tidyverse”)! This takes a while though, so for this workshop we will just install individual packages.

Intro to pipes

The pipe operator in R comes from the magrittr package, using syntax of %>%.

The pipe operator is for chaining a sequence of operations together. This has two main advantages: it makes your code more readable, and it saves some typing.

The syntax is data %>% function, as shown in the example below. The data gets piped into the function.

library(magrittr)

data <- c(4.1 ,1.7, 1.1, 7.5, 1.7)

data %>% mean()
## [1] 3.22

To see the difference between using pipes and not using pipes, look at the following examples.

We are going to calculate a mean of a vector of numbers, round the result, and print it using paste.

# Make some data: 20 randomly selected data points, from 1 to 10
x <- sample(1:10, 20, replace = TRUE)
y <- sample(1:10, 20, replace = TRUE)

# without pipe
y_mean <- mean(y)
y_mean <- round(y_mean, digits = 2)
y_mean <- paste("Mean value of y is", y_mean)
y_mean
## [1] "Mean value of y is 6.35"
# without pipe in one line
paste("Mean value of y is", round(mean(y), digits = 2))
## [1] "Mean value of y is 6.35"

Now lets have a look at how to do this same set of operations with pipes. The process is as follows: assign x to x_mean, then pipe to x to a mean function, pipe the result of mean to round, finally assign result to paste.

You will notice in the paste function we have used a . after the text. This is called a place-holder, whereby instead of using the data (like we did above without the pipe) we add a . to tell R that is where we want our data to go.

# load in magrittr
library(magrittr)

# magrittr pipe
x_mean <- x %>% # assign result at the start
  mean() %>% 
  round(digits = 2) %>%
  paste("Mean value of x is", .) # we use the . as a place holder for a variable (e.g. instead of x)

x_mean
## [1] "Mean value of x is 5.9"

Notice how we assign the result at the start just like we would usually do, then pipe from then on.

It is also worth mentioning that as of version 4.1 of R, base R comes with a native pipe operator. This has just been introduced, and may get more use in examples you’ll see online in the future. The syntax uses |> as the pipe, and the structure is the same as a magrittr pipe.

note that the native pipe currently doesn’t have a place-holder, so we won’t use paste in this example

# native R pipe
z <- sample(1:10, 20, replace = TRUE)

z_mean <- z |> 
  mean() |>
  round(digits = 2)

z_mean
## [1] 4.45

If the above example doesn’t work, it means you have a version of R that is less than 4.1. Run the below code chunk to test out your R version. If it is less than 4.1 you can update it after the workshop.

# test your r version
R.version.string
## [1] "R version 4.1.1 (2021-08-10)"

We will be using the magrittr pipe (%>%) for the rest of this workshop, as it’s currently the pipe operator you will come across most in the r world.

Exercise - using pipes

Using the vector of temperature provided and using magrittr pipes:

  1. Pipe median and paste functions together to get a final result that looks like: “median temp is 15”
  2. Pipe max and paste functions together to get a final result that looks like: “max temp is 20”

hint: don’t forget to use the place-holder with paste

library(magrittr)

temperature <- c(10, 16, 12, 15, 14, 15, 20)

# your code here

Introduction to dplyr

Dplyr is a package that is built for data manipulation, using functions that describe what they do. For example, the select() function selects columns you want, or don’t want, from a data frame.

The dplyr package has a lot of functions built into the package, each has it’s own very helpful documentation page with examples - https://dplyr.tidyverse.org/reference/index.html

Dplyr functions work with and without pipes and you’ll see both when searching online. If using a pipe, you call your data then pipe that to a function, such as data %>% mean(). If you are not using a pipe, you call your data within the function, such as mean(data).

We will focus on two key dplyr functions for now: select() and filter(). We will use the messi_career data for the examples. Run the code chunk below to get the data into r and have a look at it.

# create the messi career data
messi_career <- data.frame(Appearances = c(9,25,36,40,51,53,55,60,50,46,57,49,52,54,50,44),
                           Goals = c(1,8,17,16,38,47,53,73,60,41,58,41,54,45,51,31),
                           Season = c(2004,2005,2006,2007,2008,2009,2010,2011,2012,
            2013,2014,2015,2016,2017,2018,2019),
                           Club = rep("FC Barcelona", 16),
                          Age = seq(17, 32),
                          champLeagueGoal = c(0,1,1,6,9,8,12,14,8,8,10,6,11,6,12,3))
# view the data
head(messi_career)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1           9     1   2004 FC Barcelona  17               0
## 2          25     8   2005 FC Barcelona  18               1
## 3          36    17   2006 FC Barcelona  19               1
## 4          40    16   2007 FC Barcelona  20               6
## 5          51    38   2008 FC Barcelona  21               9
## 6          53    47   2009 FC Barcelona  22               8

Select function

The select function subsets columns from a data frame using their name. There are several different ways of using select. Run each of the code chunks below and review the outputs.

First, we can give the names of the columns we want to select.

# load dplyr
library(dplyr)

# select single column
messi_career %>% select(Goals)
##    Goals
## 1      1
## 2      8
## 3     17
## 4     16
## 5     38
## 6     47
## 7     53
## 8     73
## 9     60
## 10    41
## 11    58
## 12    41
## 13    54
## 14    45
## 15    51
## 16    31
# select all but single column
messi_career %>% select(-Goals)
##    Appearances Season         Club Age champLeagueGoal
## 1            9   2004 FC Barcelona  17               0
## 2           25   2005 FC Barcelona  18               1
## 3           36   2006 FC Barcelona  19               1
## 4           40   2007 FC Barcelona  20               6
## 5           51   2008 FC Barcelona  21               9
## 6           53   2009 FC Barcelona  22               8
## 7           55   2010 FC Barcelona  23              12
## 8           60   2011 FC Barcelona  24              14
## 9           50   2012 FC Barcelona  25               8
## 10          46   2013 FC Barcelona  26               8
## 11          57   2014 FC Barcelona  27              10
## 12          49   2015 FC Barcelona  28               6
## 13          52   2016 FC Barcelona  29              11
## 14          54   2017 FC Barcelona  30               6
## 15          50   2018 FC Barcelona  31              12
## 16          44   2019 FC Barcelona  32               3
# select multiple columns
messi_career %>% select(Appearances, Goals, Age)
##    Appearances Goals Age
## 1            9     1  17
## 2           25     8  18
## 3           36    17  19
## 4           40    16  20
## 5           51    38  21
## 6           53    47  22
## 7           55    53  23
## 8           60    73  24
## 9           50    60  25
## 10          46    41  26
## 11          57    58  27
## 12          49    41  28
## 13          52    54  29
## 14          54    45  30
## 15          50    51  31
## 16          44    31  32

Another method is using a range of columns, known as a slice. Here we are selecting columns from Season to Age, which includes the Club column as well. We can also combine this with the ! (not) operator to exclude those columns.

# select slice (or range) of columns
messi_career %>% select(Season:Age)
##    Season         Club Age
## 1    2004 FC Barcelona  17
## 2    2005 FC Barcelona  18
## 3    2006 FC Barcelona  19
## 4    2007 FC Barcelona  20
## 5    2008 FC Barcelona  21
## 6    2009 FC Barcelona  22
## 7    2010 FC Barcelona  23
## 8    2011 FC Barcelona  24
## 9    2012 FC Barcelona  25
## 10   2013 FC Barcelona  26
## 11   2014 FC Barcelona  27
## 12   2015 FC Barcelona  28
## 13   2016 FC Barcelona  29
## 14   2017 FC Barcelona  30
## 15   2018 FC Barcelona  31
## 16   2019 FC Barcelona  32
# select slice and other columns
messi_career %>% select(Appearances:Season, champLeagueGoal)
##    Appearances Goals Season champLeagueGoal
## 1            9     1   2004               0
## 2           25     8   2005               1
## 3           36    17   2006               1
## 4           40    16   2007               6
## 5           51    38   2008               9
## 6           53    47   2009               8
## 7           55    53   2010              12
## 8           60    73   2011              14
## 9           50    60   2012               8
## 10          46    41   2013               8
## 11          57    58   2014              10
## 12          49    41   2015               6
## 13          52    54   2016              11
## 14          54    45   2017               6
## 15          50    51   2018              12
## 16          44    31   2019               3
# negate selection of columns
messi_career %>% select(!(Season:Age))
##    Appearances Goals champLeagueGoal
## 1            9     1               0
## 2           25     8               1
## 3           36    17               1
## 4           40    16               6
## 5           51    38               9
## 6           53    47               8
## 7           55    53              12
## 8           60    73              14
## 9           50    60               8
## 10          46    41               8
## 11          57    58              10
## 12          49    41               6
## 13          52    54              11
## 14          54    45               6
## 15          50    51              12
## 16          44    31               3
# negate selection with slice and extra column (note c() function used)
messi_career %>% select(!c(Season:Age, champLeagueGoal))
##    Appearances Goals
## 1            9     1
## 2           25     8
## 3           36    17
## 4           40    16
## 5           51    38
## 6           53    47
## 7           55    53
## 8           60    73
## 9           50    60
## 10          46    41
## 11          57    58
## 12          49    41
## 13          52    54
## 14          54    45
## 15          50    51
## 16          44    31

As you can see, select() makes it easy to extract columns from your data, and becomes more useful the larger your dataset becomes.

In the examples above we did not assign the result. See the examples below on how to do this.

# assign result to subset
messi_sub <- messi_career %>%
  select(Appearances, Goals, Age)

messi_sub
##    Appearances Goals Age
## 1            9     1  17
## 2           25     8  18
## 3           36    17  19
## 4           40    16  20
## 5           51    38  21
## 6           53    47  22
## 7           55    53  23
## 8           60    73  24
## 9           50    60  25
## 10          46    41  26
## 11          57    58  27
## 12          49    41  28
## 13          52    54  29
## 14          54    45  30
## 15          50    51  31
## 16          44    31  32
# The no pipe method
messi_sub <- select(messi_career, Appearances, Goals, Age)

Select exercise

For your exercises, you will be using imdb movie data! I’ve loaded it here in the code for you.

The data has 22 columns, some of which we won’t need. We can use select to subset our data to keep only what we want.

  1. Run the code currenty in the code chunk to load the libraries and the data, and review the output from glimpse()
  2. Using select with pipes, subset the imdb_movie data so you have the following columns: imdb_id through to writer, actors, avg_vote to votes, reviews_from_users to reviews_from_critics. Assign the result to imdb_sub
  3. Use glimpse to review the subsetted data: data %>% glimpse()
  4. There is a more efficient way of doing this using select. From looking at the examples provided, can you think of a better way of taking out the columns we removed?

hint: you should be able to fit this into one select call

# load libraries
library(readr)
library(dplyr)

# load data
movies_imdb <- read_csv("https://raw.githubusercontent.com/andrewmoles2/rTrainIntroduction/main/r-data-wrangling-1/data/IMDb%20movies.csv")

# use glimpse to review data (tidyverse version of str())
movies_imdb %>% glimpse()
## Rows: 85,855
## Columns: 21
## $ imdb_title_id         <chr> "tt0000009", "tt0000574", "tt0001892", "tt000210…
## $ title                 <chr> "Miss Jerry", "The Story of the Kelly Gang", "De…
## $ year                  <dbl> 1894, 1906, 1911, 1912, 1911, 1912, 1919, 1913, …
## $ date_published        <chr> "1894-10-09", "26/12/1906", "19/08/1911", "13/11…
## $ genre                 <chr> "Romance", "Biography, Crime, Drama", "Drama", "…
## $ duration              <dbl> 45, 70, 53, 100, 68, 60, 85, 120, 120, 55, 121, …
## $ country               <chr> "USA", "Australia", "Germany, Denmark", "USA", "…
## $ language              <chr> "None", "None", NA, "English", "Italian", "Engli…
## $ director              <chr> "Alexander Black", "Charles Tait", "Urban Gad", …
## $ writer                <chr> "Alexander Black", "Charles Tait", "Urban Gad, G…
## $ production_company    <chr> "Alexander Black Photoplays", "J. and N. Tait", …
## $ actors                <chr> "Blanche Bayliss, William Courtenay, Chauncey De…
## $ description           <chr> "The adventures of a female reporter in the 1890…
## $ avg_vote              <dbl> 5.9, 6.1, 5.8, 5.2, 7.0, 5.7, 6.8, 6.2, 6.7, 5.5…
## $ votes                 <dbl> 154, 589, 188, 446, 2237, 484, 753, 273, 198, 22…
## $ budget                <chr> NA, "$ 2250", NA, "$ 45000", NA, NA, NA, "ITL 45…
## $ usa_gross_income      <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
## $ worlwide_gross_income <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
## $ metascore             <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
## $ reviews_from_users    <dbl> 1, 7, 5, 25, 31, 13, 12, 7, 4, 8, 9, 9, 16, 8, N…
## $ reviews_from_critics  <dbl> 2, 7, 2, 3, 14, 5, 9, 5, 1, 1, 9, 28, 7, 23, 4, …
# your code here

Select helper functions

So far we have selected just columns we named, but there are other methods we can use. Dplyr has a number of helper functions that come with select().

One such example is the contains() function, that finds columns that contain the string a string. This is a useful option if you just want to pick out columns that have some similar text in them.

# select by literal string
messi_career %>% select(contains("Goal"))
##    Goals champLeagueGoal
## 1      1               0
## 2      8               1
## 3     17               1
## 4     16               6
## 5     38               9
## 6     47               8
## 7     53              12
## 8     73              14
## 9     60               8
## 10    41               8
## 11    58              10
## 12    41               6
## 13    54              11
## 14    45               6
## 15    51              12
## 16    31               3

Other options are the starts_with() or ends_with() helpers. You provide a string of what your column either starts with or ends with, and they will be selected.

# columns starting with A
messi_career %>%
  select(starts_with("A"))
##    Appearances Age
## 1            9  17
## 2           25  18
## 3           36  19
## 4           40  20
## 5           51  21
## 6           53  22
## 7           55  23
## 8           60  24
## 9           50  25
## 10          46  26
## 11          57  27
## 12          49  28
## 13          52  29
## 14          54  30
## 15          50  31
## 16          44  32
# columns ending with s
messi_career %>%
  select(ends_with("s"))
##    Appearances Goals
## 1            9     1
## 2           25     8
## 3           36    17
## 4           40    16
## 5           51    38
## 6           53    47
## 7           55    53
## 8           60    73
## 9           50    60
## 10          46    41
## 11          57    58
## 12          49    41
## 13          52    54
## 14          54    45
## 15          50    51
## 16          44    31
# columns not starting with A
messi_career %>%
  select(!starts_with("A"))
##    Goals Season         Club champLeagueGoal
## 1      1   2004 FC Barcelona               0
## 2      8   2005 FC Barcelona               1
## 3     17   2006 FC Barcelona               1
## 4     16   2007 FC Barcelona               6
## 5     38   2008 FC Barcelona               9
## 6     47   2009 FC Barcelona               8
## 7     53   2010 FC Barcelona              12
## 8     73   2011 FC Barcelona              14
## 9     60   2012 FC Barcelona               8
## 10    41   2013 FC Barcelona               8
## 11    58   2014 FC Barcelona              10
## 12    41   2015 FC Barcelona               6
## 13    54   2016 FC Barcelona              11
## 14    45   2017 FC Barcelona               6
## 15    51   2018 FC Barcelona              12
## 16    31   2019 FC Barcelona               3

Select helper exercise

Using the imdb_sub dataset you made in the previous exercise:

  1. Find columns in imdb_sub that contain “vote”
  2. Find columns in imdb_sub that start with “d”
  3. Find columns in imdb_sub that end with “e”
  4. Find columns in imdb_sub that either start with “d” or end with “e” hint: you can use an or (|) statement with select
# your code here

Using select to change column order

It is also helpful to change the order of your columns, and you can use select to do this.

If we wanted to move the club column as the first column in our messi_career data, we could do it manually but naming all the columns like the example below.

# manually
messi_career %>%
  select(Club, Appearances, Goals, Season, Age, champLeagueGoal)
##            Club Appearances Goals Season Age champLeagueGoal
## 1  FC Barcelona           9     1   2004  17               0
## 2  FC Barcelona          25     8   2005  18               1
## 3  FC Barcelona          36    17   2006  19               1
## 4  FC Barcelona          40    16   2007  20               6
## 5  FC Barcelona          51    38   2008  21               9
## 6  FC Barcelona          53    47   2009  22               8
## 7  FC Barcelona          55    53   2010  23              12
## 8  FC Barcelona          60    73   2011  24              14
## 9  FC Barcelona          50    60   2012  25               8
## 10 FC Barcelona          46    41   2013  26               8
## 11 FC Barcelona          57    58   2014  27              10
## 12 FC Barcelona          49    41   2015  28               6
## 13 FC Barcelona          52    54   2016  29              11
## 14 FC Barcelona          54    45   2017  30               6
## 15 FC Barcelona          50    51   2018  31              12
## 16 FC Barcelona          44    31   2019  32               3

This could get really messy if you have lots of data. Two helper functions make this much easier: everything() and last_col(). Everything selects every column not already specified, so is useful if we want to move a column to the first column in the dataset.

# move club to first column
messi_career %>%
  select(Club, everything())
##            Club Appearances Goals Season Age champLeagueGoal
## 1  FC Barcelona           9     1   2004  17               0
## 2  FC Barcelona          25     8   2005  18               1
## 3  FC Barcelona          36    17   2006  19               1
## 4  FC Barcelona          40    16   2007  20               6
## 5  FC Barcelona          51    38   2008  21               9
## 6  FC Barcelona          53    47   2009  22               8
## 7  FC Barcelona          55    53   2010  23              12
## 8  FC Barcelona          60    73   2011  24              14
## 9  FC Barcelona          50    60   2012  25               8
## 10 FC Barcelona          46    41   2013  26               8
## 11 FC Barcelona          57    58   2014  27              10
## 12 FC Barcelona          49    41   2015  28               6
## 13 FC Barcelona          52    54   2016  29              11
## 14 FC Barcelona          54    45   2017  30               6
## 15 FC Barcelona          50    51   2018  31              12
## 16 FC Barcelona          44    31   2019  32               3

Last col calls the last column in your data frame, so we can call last_col() to move ‘champLeagueGoal’ to the first column, then use everything to keep the rest of the columns as they are.

# move last column to first column
messi_career %>%
  select(last_col(), everything())
##    champLeagueGoal Appearances Goals Season         Club Age
## 1                0           9     1   2004 FC Barcelona  17
## 2                1          25     8   2005 FC Barcelona  18
## 3                1          36    17   2006 FC Barcelona  19
## 4                6          40    16   2007 FC Barcelona  20
## 5                9          51    38   2008 FC Barcelona  21
## 6                8          53    47   2009 FC Barcelona  22
## 7               12          55    53   2010 FC Barcelona  23
## 8               14          60    73   2011 FC Barcelona  24
## 9                8          50    60   2012 FC Barcelona  25
## 10               8          46    41   2013 FC Barcelona  26
## 11              10          57    58   2014 FC Barcelona  27
## 12               6          49    41   2015 FC Barcelona  28
## 13              11          52    54   2016 FC Barcelona  29
## 14               6          54    45   2017 FC Barcelona  30
## 15              12          50    51   2018 FC Barcelona  31
## 16               3          44    31   2019 FC Barcelona  32

Another option is to use the relocate() function. This has the same syntax as select, but has extra functionally for moving columns with the .after and .before arguments.

By default, relocate will move the column you specify to the first column.

# default moves to first column
messi_career %>%
  relocate(Club)
##            Club Appearances Goals Season Age champLeagueGoal
## 1  FC Barcelona           9     1   2004  17               0
## 2  FC Barcelona          25     8   2005  18               1
## 3  FC Barcelona          36    17   2006  19               1
## 4  FC Barcelona          40    16   2007  20               6
## 5  FC Barcelona          51    38   2008  21               9
## 6  FC Barcelona          53    47   2009  22               8
## 7  FC Barcelona          55    53   2010  23              12
## 8  FC Barcelona          60    73   2011  24              14
## 9  FC Barcelona          50    60   2012  25               8
## 10 FC Barcelona          46    41   2013  26               8
## 11 FC Barcelona          57    58   2014  27              10
## 12 FC Barcelona          49    41   2015  28               6
## 13 FC Barcelona          52    54   2016  29              11
## 14 FC Barcelona          54    45   2017  30               6
## 15 FC Barcelona          50    51   2018  31              12
## 16 FC Barcelona          44    31   2019  32               3

We call .after and .before like the examples below. We can also move more than one column.

# move club to col after champLeagueGoal
messi_career %>%
  relocate(Club, .after = champLeagueGoal)
##    Appearances Goals Season Age champLeagueGoal         Club
## 1            9     1   2004  17               0 FC Barcelona
## 2           25     8   2005  18               1 FC Barcelona
## 3           36    17   2006  19               1 FC Barcelona
## 4           40    16   2007  20               6 FC Barcelona
## 5           51    38   2008  21               9 FC Barcelona
## 6           53    47   2009  22               8 FC Barcelona
## 7           55    53   2010  23              12 FC Barcelona
## 8           60    73   2011  24              14 FC Barcelona
## 9           50    60   2012  25               8 FC Barcelona
## 10          46    41   2013  26               8 FC Barcelona
## 11          57    58   2014  27              10 FC Barcelona
## 12          49    41   2015  28               6 FC Barcelona
## 13          52    54   2016  29              11 FC Barcelona
## 14          54    45   2017  30               6 FC Barcelona
## 15          50    51   2018  31              12 FC Barcelona
## 16          44    31   2019  32               3 FC Barcelona
# move club to col before champLeagueGoal
messi_career %>%
  relocate(Club, Goals, .before = champLeagueGoal)
##    Appearances Season Age         Club Goals champLeagueGoal
## 1            9   2004  17 FC Barcelona     1               0
## 2           25   2005  18 FC Barcelona     8               1
## 3           36   2006  19 FC Barcelona    17               1
## 4           40   2007  20 FC Barcelona    16               6
## 5           51   2008  21 FC Barcelona    38               9
## 6           53   2009  22 FC Barcelona    47               8
## 7           55   2010  23 FC Barcelona    53              12
## 8           60   2011  24 FC Barcelona    73              14
## 9           50   2012  25 FC Barcelona    60               8
## 10          46   2013  26 FC Barcelona    41               8
## 11          57   2014  27 FC Barcelona    58              10
## 12          49   2015  28 FC Barcelona    41               6
## 13          52   2016  29 FC Barcelona    54              11
## 14          54   2017  30 FC Barcelona    45               6
## 15          50   2018  31 FC Barcelona    51              12
## 16          44   2019  32 FC Barcelona    31               3

Column ordering exercise

Using the examples above:

  1. Move the year column to be the first column in the imdb_sub data frame
  2. Move the avg_vote column to be after the year column
# your code here

Filter function

The filter function allows you to subset rows based on conditions, using conditional operators (==, <=, != etc.). It is similar to the base r subset() function which we have used in previous R workshops. The table below is a reminder of the conditional operators you can use.

Operator Meaning
> Greater than
>= Greater than or equal to
< Less than
<= Less than or equal to
== Equal to
!= Not equal to
!X NOT X
X Y
X & Y X AND Y
X %in% Y is X in Y

Just like when using select, you provide the column name you want to apply conditional logic to. If you are piping, you don’t need to provide your data as an argument in the function.

Run the examples below and review the outputs.

# filter based on one criteria
messi_career %>% filter(Goals > 50)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1          55    53   2010 FC Barcelona  23              12
## 2          60    73   2011 FC Barcelona  24              14
## 3          50    60   2012 FC Barcelona  25               8
## 4          57    58   2014 FC Barcelona  27              10
## 5          52    54   2016 FC Barcelona  29              11
## 6          50    51   2018 FC Barcelona  31              12
# filter then pipe to select
messi_career %>% filter(Appearances >= 55) %>%
  select(Season, Age)
##   Season Age
## 1   2010  23
## 2   2011  24
## 3   2014  27
# filter on more than one condition
messi_career %>% filter(Goals > 50 & champLeagueGoal <= 10)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1          50    60   2012 FC Barcelona  25               8
## 2          57    58   2014 FC Barcelona  27              10
# filter on average
messi_career %>% filter(Goals > mean(Goals, na.rm = TRUE))
##    Appearances Goals Season         Club Age champLeagueGoal
## 1           53    47   2009 FC Barcelona  22               8
## 2           55    53   2010 FC Barcelona  23              12
## 3           60    73   2011 FC Barcelona  24              14
## 4           50    60   2012 FC Barcelona  25               8
## 5           46    41   2013 FC Barcelona  26               8
## 6           57    58   2014 FC Barcelona  27              10
## 7           49    41   2015 FC Barcelona  28               6
## 8           52    54   2016 FC Barcelona  29              11
## 9           54    45   2017 FC Barcelona  30               6
## 10          50    51   2018 FC Barcelona  31              12

To assign the result to a new data frame (subset) we use the assignment operator at the beginning or the end of our code; here we have just shown the beginning, in the pipes section we show both versions.

# assign result to messi_sub
messi_sub <- messi_career %>%
  filter(Appearances <= 40) %>%
  select(Goals, Age)

# view result
messi_sub
##   Goals Age
## 1     1  17
## 2     8  18
## 3    17  19
## 4    16  20

Filter exercise

We are going to filter our subsetted (imdb_sub) data to find the best rated films from the USA in the year 1989, and create a subset called USA_1989_high.

  1. Pipe from imdb_sub to filter, filtering for country being equal to USA
  2. Pipe from your country filter to another filter, filtering for year being equal to 1989
  3. Pipe from your year filter to another filter. Filter for avg_vote to be greater than or equal to 7.5 and reviews_from_critics to be greater than 10
  4. Make sure to assign your result to USA_1989_high
  5. Print the result to see the highest rated films, made in the USA, in 1989.
  6. Do you think you can put this into one filter command using the & operator?
# your code here

You might have noticed that the country column has some strings that are split by a comma, e.g. “Germany, Denmark”. The == operator will not be able to pick these up. Instead we would use the base R grepl() function or str_detect() from the stringr package. This won’t be covered in this workshop, but will be in future workshops. If you are interested, have a look at the stringr package - https://stringr.tidyverse.org/index.html.

Other filtering options with dplyr

Other than conditional subsetting of data using filter(), dplyr has other functions we can use to subset our data: slice, sample, and distinct.

The sample functions randomly extract a set number of rows from your data. This is helpful if you want to take a random sample of your dataset. The examples below show the sample_n() and sample_frac() functions.

# sample 5 rows
messi_career %>%
  sample_n(5)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1          57    58   2014 FC Barcelona  27              10
## 2          51    38   2008 FC Barcelona  21               9
## 3          60    73   2011 FC Barcelona  24              14
## 4          55    53   2010 FC Barcelona  23              12
## 5          25     8   2005 FC Barcelona  18               1
# sample 25% of your data
messi_career %>%
  sample_frac(0.25)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1          50    60   2012 FC Barcelona  25               8
## 2          53    47   2009 FC Barcelona  22               8
## 3          44    31   2019 FC Barcelona  32               3
## 4          52    54   2016 FC Barcelona  29              11

The slice functions are more useful. The basic slice function is the equivalent of using numbered indexing in base r data[1:5, ], but is designed to work better in the tidyverse enviroment.

# select rows 4, 5, and 6
messi_career %>%
  slice(4:6)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1          40    16   2007 FC Barcelona  20               6
## 2          51    38   2008 FC Barcelona  21               9
## 3          53    47   2009 FC Barcelona  22               8
# equivalent in base r
messi_career[4:6, ]
##   Appearances Goals Season         Club Age champLeagueGoal
## 4          40    16   2007 FC Barcelona  20               6
## 5          51    38   2008 FC Barcelona  21               9
## 6          53    47   2009 FC Barcelona  22               8

The slice_max and slice_min functions are much more powerful, and are harder and messier to achieve with normal base r code. They allow you to index the rows that have the max (or min) in a specified column. In the example, we extract the rows that have the top three and bottom three values in the Goals column.

# extract rows with top three Goals
messi_career %>%
  slice_max(Goals, n = 3)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1          60    73   2011 FC Barcelona  24              14
## 2          50    60   2012 FC Barcelona  25               8
## 3          57    58   2014 FC Barcelona  27              10
# this harder and less clear in base r
messi_career[messi_career$Goals %in% tail(sort(messi_career$Goals), 3), ]
##    Appearances Goals Season         Club Age champLeagueGoal
## 8           60    73   2011 FC Barcelona  24              14
## 9           50    60   2012 FC Barcelona  25               8
## 11          57    58   2014 FC Barcelona  27              10
# extract rows with bottom three Goals
messi_career %>%
  slice_min(Goals, n = 3)
##   Appearances Goals Season         Club Age champLeagueGoal
## 1           9     1   2004 FC Barcelona  17               0
## 2          25     8   2005 FC Barcelona  18               1
## 3          40    16   2007 FC Barcelona  20               6

Filtering continued exercise

In this exercise you will need to debug my code to get it working. We will filter the imdb_sub data for films over 120 minutes, and in the USA, then extract the top 20 rated films.

If you get it working your top_votes_USA data frame should have 20 rows and 4 columns (title, year, genre and avg_vote) with films such as The Shawshank Redemption and the Godfather. As a bonus, if you get your code working, the plot at the end of the code will run!

# your code here
top_votes_USA <- imdb_sub %>%
  filter(duration >= 120 & country = "USA") |>
  slicemax(avgvote, n = 20) %>%
  select(title year, genre, avg_vote)

top_votes_USA

# fun extra, plot the output of your debugging! 
plot(top_votes_USA$year, top_votes_USA$avg_vote,
     col = "orange", # point colour
     pch = 16, # point type
     cex = 1.5, # point size
     xlab = "Year",
     ylab = "Average vote") 

Final task - Please give us your individual feedback!

We would be grateful if you could take a minute before the end of the workshop so we can get your feedback!

https://lse.eu.qualtrics.com/jfe/form/SV_eflc2yj4pcryc62?coursename=R%20Data%20Wrangling%201:%20Pipes%20and%20introduction%20to%20dplyr%C2%A0%C2%A0&topic=R&link=https://lsecloud.sharepoint.com/:f:/s/TEAM_APD-DSL-Digital-Skills-Trainers/EkNl1TlFgF9ApLsKSP-lqTUBiMCNlzcqB8pY0W3IJI3WYQ?e=Si2I9B&prog=DS&version=21-22

The solutions we be available from a link at the end of the survey.

Individual coding challenge

For this coding challenge we are going to extract all Tolkien (lord of the rings and hobbit) and Harry Potter films from our imdb dataset. We have provided vectors with the titles of these films.

  1. Using the Tolkien and Potter vectors, use the %in% operator to filter titles in the imdb dataset that match the Tolkien or Potter vectors.
  2. Select out the title, year, avg_vote, and duration columns
  3. Save your subsetted data to a data frame called Tolkien_Potter
  4. What films in the Tolkien_Potter dataset have a higher than average vote?
  5. What films in the Tolkien_Potter dataset have a less than average duration in hours?

hint: for 4 and 5 you can use filter to compare the column to the mean of that column, e.g. filter(data, column > mean(column))

Tolkien <- c("The Lord of the Rings: The Fellowship of the Ring", "The Lord of the Rings: The Return of the King",
           "The Lord of the Rings: The Two Towers", "The Hobbit: An Unexpected Journey",
           "The Hobbit: The Desolation of Smaug", "The Hobbit: The Battle of the Five Armies")

Potter <- c("Harry Potter and the Sorcerer's Stone", "Harry Potter and the Chamber of Secrets",
            "Harry Potter and the Prisoner of Azkaban", "Harry Potter and the Goblet of Fire",
            "Harry Potter and the Order of the Phoenix", "Harry Potter and the Half-Blood Prince",
            "Harry Potter and the Deathly Hallows: Part 1", "Harry Potter and the Deathly Hallows: Part 2")

# your code here
LS0tCnRpdGxlOiAiUiBEYXRhIFdyYW5nbGluZyAxIC0gVGlkeXZlcnNlIGludHJvZHVjdGlvbiB3aXRoIFBpcGVzIGFuZCBkcGx5ciIKYXV0aG9yOgogICAtIG5hbWU6IEFuZHJldyBNb2xlcwogICAgIGFmZmlsaWF0aW9uOiBMZWFybmluZyBEZXZlbG9wZXIsIERpZ2l0YWwgU2tpbGxzIExhYgpkYXRlOiAiYHIgZm9ybWF0KFN5cy50aW1lKCksICclZCAlQiwgJVknKWAiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDogCiAgICB0aGVtZTogcmVhZGFibGUKICAgIGhpZ2hsaWdodDogcHlnbWVudHMKICAgIGtlZXBfbWQ6IHllcwogICAgY29kZV9kb3dubG9hZDogdHJ1ZQogICAgdG9jOiB0cnVlCiAgICB0b2NfZmxvYXQ6IHRydWUKLS0tCgojIE9iamVjdGl2ZSBvZiB3b3Jrc2hvcAoKVG8gc3RhcnQgdXNpbmcgdGhlIGRwbHlyIHBhY2thZ2UgZnJvbSB0aGUgdGlkeXZlcnNlIHRvIHNlbGVjdCBjb2x1bW5zIGFuZCBmaWx0ZXIgZGF0YS4gCgojIFdoYXQgdGhpcyB3b3Jrc2hvcCB3aWxsIGNvdmVyCgpJbiB0aGlzIHdvcmtzaG9wLCB0aGUgYWltIGlzIHRvIGNvdmVyIGhvdyB0byBzdGFydCB3b3JraW5nIHdpdGggdGhlIGtleSBsaWJyYXJ5IGZyb20gdGhlIHRpZHl2ZXJzZSwgZHBseXIuIFdlIHdpbGwgYmUgY292ZXJpbmc6CgotICAgSW50cm9kdWNlIHRoZSB1c2Ugb2YgcGlwZXMKLSAgIEluZGV4aW5nIHdpdGggdGhlIHNlbGVjdCBmdW5jdGlvbiBmcm9tIGRwbHlyCi0gICBDb25kaXRpb25hbCBpbmRleGluZyBvZiBkYXRhIHdpdGggdGhlIGZpbHRlciBmdW5jdGlvbiBmcm9tIGRwbHlyCgotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KCiMgV2hhdCBpcyB0aGUgdGlkeXZlcnNlPwoKIVtpbWFnZSBjcmVkaXQ6IEFuYWx5dGljcyBWaWRoeWFdKGh0dHBzOi8vZ2l0aHViLmNvbS9hbmRyZXdtb2xlczIvclRyYWluSW50cm9kdWN0aW9uL2Jsb2IvbWFpbi9yLWRhdGEtd3JhbmdsaW5nLTEvaW1hZ2VzL3RpZHl2ZXJzZS5qcGVnP3Jhdz10cnVlKQoKVGhlIHRpZHl2ZXJzZSBpcyBhIGNvbGxlY3Rpb24gb2YgUiBwYWNrYWdlcyB0aGF0IGFyZSBkZXNpZ25lZCBmb3IgZGF0YSBzY2llbmNlLiBUaGVzZSBwYWNrYWdlcyBzaGFyZSBkZXNpZ24sIHN5bnRheCwgYW5kIHBoaWxvc29waHkuIFRoZXNlIHBhY2thZ2VzIGNvdmVyIHRoZSBpbXBvcnQgb2YgZGF0YSAoYHJlYWRyYCBhbmQgYGhhdmVuYCksIG1hbmlwdWxhdGlvbiBhbmQgdHJhbnNmb3JtYXRpb24gb2YgZGF0YSAoYGRwbHlyYCwgYHRpZHlyYCwgYHN0cmluZ3JgLCBgcHVycnJgLCBgZm9yY2F0c2AsIGFuZCBgbHVicmlkYXRlYCksIHZpc3VhbGlzYXRpb24gKGBnZ3Bsb3RgIGFuZCBpdCdzIGV4dGVuc2lvbnMpLCBhbmQgYW5hbHlzaXMgKGB0aWR5bW9kZWxzYCkuCgpFc3NlbnRpYWxseSwgdGhlIHRpZHl2ZXJzZSBtYWtlcyBkYXRhIHNjaWVuY2UgaW4gUiBsZXNzIHBhaW5sZXNzLCBpbXByb3ZpbmcgeW91ciBleHBlcmllbmNlIG9mIFIgYW5kIGRhdGEgc2NpZW5jZSwgZXNwZWNpYWxseSBpbiB0aGUgZGF0YSBjbGVhbmluZyBhbmQgd3JhbmdsaW5nIHN0YWdlcy4KCiMgV2hhdCBpcyB0aWR5IGRhdGE/CgpUaGUgdGlkeXZlcnNlIGhhcyBhIGZvY3VzIG9uIHdvcmtpbmcgd2l0aCB0aWR5IGRhdGEsIG9yIG1ha2luZyBkYXRhIHRpZHksIHJlYWR5IGZvciB2aXN1YWxpc2F0aW9uIGFuZCBhbmFseXNpcy4gU28gd2hhdCBkb2VzIHRpZHkgZGF0YSBtZWFuPwoKV2hlbiB5b3VyIGRhdGEgaXMgdGlkeSwgKmVhY2ggY29sdW1uIGlzIGEgdmFyaWFibGUqLCAqZWFjaCByb3cgaXMgYW4gb2JzZXJ2YXRpb24qLCBhbmQgKmVhY2ggY2VsbCBpcyBhIHNpbmdsZSBvYnNlcnZhdGlvbiosIGFzIHBlciBvdXIgZXhhbXBsZSBiZWxvdzoKCmBgYHtyfQojIHRpZHkgZGF0YSBleGFtcGxlCnRpZHlfZGYgPC0gZGF0YS5mcmFtZSgKICBpZCA9IDE6NiwKICBuYW1lID0gYygiZmxvb2YiLCAibWF4IiwgImNhdCIsICJkb251dCIsICJtZXJsaW4iLCAicGFuZGEiKSwKICBjb2xvdXIgPSBjKCJncmV5IiwgImJsYWNrIiwgIm9yYW5nZSIsICJncmV5IiwgImJsYWNrIiwgImNhbGljbyIpCikKCnRpZHlfZGYKYGBgCgpNZXNzeSBkYXRhIGlzIGluY29uc2lzdGVudCBhbmQgdW5pcXVlLCBtYWtpbmcgaXQgaGFyZGVyIHRvIHdvcmsgd2l0aCwgYW5kIGhhcmRlciBmb3Igb3RoZXJzIHRvIHdvcmsgd2l0aC4gU2VlIHRoaXMgZXhhbXBsZSBvZiBhIG1lc3N5IGRhdGFzZXQgdGhhdCB3b3VsZCBiZSBoYXJkIHRvIHdvcmsgd2l0aC4gV2Ugd291bGQgaGF2ZSB0byBzcGxpdCB1cCB0aGUgYW5pbWFsIGNvbHVtbiB0byBuYW1lIGFuZCBjb2xvdXIuIEluIGxhdGVyIHdvcmtzaG9wcywgd2Ugd2lsbCBjb3ZlciBob3cgdG8gZGVhbCB3aXRoIG1lc3N5IGRhdGEuCgpgYGB7cn0KIyBleGFtcGxlIG1lc3N5IGRhdGEgZnJhbWUKbWVzc3lfZGYgPC0gZGF0YS5mcmFtZSgKICBpZCA9IGMoMSwxLDIsMiwzLDMsNCw0LDUsNSw2LDYpLAogIGFuaW1hbCA9IGMoImZsb29mIiwgImdyZXkiLAogICAgICAgICAgICAgIm1heCIsICJibGFjayIsCiAgICAgICAgICAgICAiY2F0IiwgIm9yYW5nZSIsCiAgICAgICAgICAgICAiZG9udXQiLCAiZ3JleSIsCiAgICAgICAgICAgICAibWVybGluIiwgImJsYWNrIiwKICAgICAgICAgICAgICJwYW5kYSIsICJjYWxpY28iKQopCgptZXNzeV9kZgpgYGAKCiFbSW1hZ2UgY3JlZGl0OiBKdWxpZSBMb3duZGVzIGFuZCBBbGxpc29uIEhvcnN0XShodHRwczovL2dpdGh1Yi5jb20vYW5kcmV3bW9sZXMyL3JUcmFpbkludHJvZHVjdGlvbi9ibG9iL21haW4vci1kYXRhLXdyYW5nbGluZy0xL2ltYWdlcy90aWR5ZGF0YV8yLmpwZWc/cmF3PXRydWUpCgpTZWUgdGhpcyBleGNlbGxlbnQgYXJ0aWNsZSwgd2hpY2ggaGFzIGxvdHMgb2YgbmljZSBpbWFnZXMsIGZvciBhIHN1bW1hcnkgOi08aHR0cHM6Ly93d3cub3BlbnNjYXBlcy5vcmcvYmxvZy8yMDIwLzEwLzEyL3RpZHktZGF0YS8+CgoKIyBQYWNrYWdlIGluc3RhbGwgdGFzawoKSW4gdGhpcyB3b3Jrc2hvcCB3ZSB3aWxsIGJlIHVzaW5nIHRocmVlIHBhY2thZ2VzOiBtYWdyaXR0ciwgZHBseXIsIGFuZCByZWFkci4KClVzaW5nIHRoZSBjb2RlIGNodW5rIGJlbG93LCBpbnN0YWxsIGFsbCB0aHJlZSBvZiB0aGVzZSBwYWNrYWdlcy4gTm90ZSB0aGF0IGRwbHlyIGlzIGxhcmdlIGFuZCBtaWdodCB0YWtlIGEgbWludXRlIG9yIHNvIHRvIGluc3RhbGwsIHdlIGhhdmUgYWRkZWQgdGhlIGBOY3B1cyA9IDZgIGFyZ3VtZW50IHdoaWNoIHNob3VsZCBzcGVlZCB0aGluZ3MgdXAgYSBiaXQuIAoKYGBge3IgZXZhbD1GQUxTRX0KIyB5b3VyIGNvZGUgaGVyZQppbnN0YWxsLnBhY2thZ2VzKCIiLCBOY3B1cyA9IDYpCmluc3RhbGwucGFja2FnZXMoIiIsIE5jcHVzID0gNikKaW5zdGFsbC5wYWNrYWdlcygiIiwgTmNwdXMgPSA2KQpgYGAKCipBbHNvIG5vdGUgdGhhdCB5b3UgY2FuIGluc3RhbGwgdGhlIHdob2xlIHRpZHl2ZXJzZSB3aXRoIGluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIpISBUaGlzIHRha2VzIGEgd2hpbGUgdGhvdWdoLCBzbyBmb3IgdGhpcyB3b3Jrc2hvcCB3ZSB3aWxsIGp1c3QgaW5zdGFsbCBpbmRpdmlkdWFsIHBhY2thZ2VzLioKCiMgSW50cm8gdG8gcGlwZXMKClRoZSBwaXBlIG9wZXJhdG9yIGluIFIgY29tZXMgZnJvbSB0aGUgYG1hZ3JpdHRyYCBwYWNrYWdlLCB1c2luZyBzeW50YXggb2YgYCU+JWAuCgpUaGUgcGlwZSBvcGVyYXRvciBpcyBmb3IgY2hhaW5pbmcgYSBzZXF1ZW5jZSBvZiBvcGVyYXRpb25zIHRvZ2V0aGVyLiBUaGlzIGhhcyB0d28gbWFpbiBhZHZhbnRhZ2VzOiBpdCBtYWtlcyB5b3VyIGNvZGUgbW9yZSByZWFkYWJsZSwgYW5kIGl0IHNhdmVzIHNvbWUgdHlwaW5nLgoKVGhlIHN5bnRheCBpcyBgZGF0YSAlPiUgZnVuY3Rpb25gLCBhcyBzaG93biBpbiB0aGUgZXhhbXBsZSBiZWxvdy4gVGhlIGRhdGEgZ2V0cyAqcGlwZWQqIGludG8gdGhlIGZ1bmN0aW9uLgoKYGBge3J9CmxpYnJhcnkobWFncml0dHIpCgpkYXRhIDwtIGMoNC4xICwxLjcsIDEuMSwgNy41LCAxLjcpCgpkYXRhICU+JSBtZWFuKCkKYGBgCgpUbyBzZWUgdGhlIGRpZmZlcmVuY2UgYmV0d2VlbiB1c2luZyBwaXBlcyBhbmQgbm90IHVzaW5nIHBpcGVzLCBsb29rIGF0IHRoZSBmb2xsb3dpbmcgZXhhbXBsZXMuCgpXZSBhcmUgZ29pbmcgdG8gY2FsY3VsYXRlIGEgbWVhbiBvZiBhIHZlY3RvciBvZiBudW1iZXJzLCByb3VuZCB0aGUgcmVzdWx0LCBhbmQgcHJpbnQgaXQgdXNpbmcgcGFzdGUuCgpgYGB7cn0KIyBNYWtlIHNvbWUgZGF0YTogMjAgcmFuZG9tbHkgc2VsZWN0ZWQgZGF0YSBwb2ludHMsIGZyb20gMSB0byAxMAp4IDwtIHNhbXBsZSgxOjEwLCAyMCwgcmVwbGFjZSA9IFRSVUUpCnkgPC0gc2FtcGxlKDE6MTAsIDIwLCByZXBsYWNlID0gVFJVRSkKCiMgd2l0aG91dCBwaXBlCnlfbWVhbiA8LSBtZWFuKHkpCnlfbWVhbiA8LSByb3VuZCh5X21lYW4sIGRpZ2l0cyA9IDIpCnlfbWVhbiA8LSBwYXN0ZSgiTWVhbiB2YWx1ZSBvZiB5IGlzIiwgeV9tZWFuKQp5X21lYW4KCiMgd2l0aG91dCBwaXBlIGluIG9uZSBsaW5lCnBhc3RlKCJNZWFuIHZhbHVlIG9mIHkgaXMiLCByb3VuZChtZWFuKHkpLCBkaWdpdHMgPSAyKSkKYGBgCgpOb3cgbGV0cyBoYXZlIGEgbG9vayBhdCBob3cgdG8gZG8gdGhpcyBzYW1lIHNldCBvZiBvcGVyYXRpb25zIHdpdGggcGlwZXMuIFRoZSBwcm9jZXNzIGlzIGFzIGZvbGxvd3M6IGFzc2lnbiB4IHRvIHhfbWVhbiwgdGhlbiBwaXBlIHRvIHggdG8gYSBtZWFuIGZ1bmN0aW9uLCBwaXBlIHRoZSByZXN1bHQgb2YgbWVhbiB0byByb3VuZCwgZmluYWxseSBhc3NpZ24gcmVzdWx0IHRvIHBhc3RlLgoKWW91IHdpbGwgbm90aWNlIGluIHRoZSBwYXN0ZSBmdW5jdGlvbiB3ZSBoYXZlIHVzZWQgYSBgLmAgYWZ0ZXIgdGhlIHRleHQuIFRoaXMgaXMgY2FsbGVkIGEgKnBsYWNlLWhvbGRlciosIHdoZXJlYnkgaW5zdGVhZCBvZiB1c2luZyB0aGUgZGF0YSAobGlrZSB3ZSBkaWQgYWJvdmUgd2l0aG91dCB0aGUgcGlwZSkgd2UgYWRkIGEgYC5gIHRvIHRlbGwgUiB0aGF0IGlzIHdoZXJlIHdlIHdhbnQgb3VyIGRhdGEgdG8gZ28uCgpgYGB7cn0KIyBsb2FkIGluIG1hZ3JpdHRyCmxpYnJhcnkobWFncml0dHIpCgojIG1hZ3JpdHRyIHBpcGUKeF9tZWFuIDwtIHggJT4lICMgYXNzaWduIHJlc3VsdCBhdCB0aGUgc3RhcnQKICBtZWFuKCkgJT4lIAogIHJvdW5kKGRpZ2l0cyA9IDIpICU+JQogIHBhc3RlKCJNZWFuIHZhbHVlIG9mIHggaXMiLCAuKSAjIHdlIHVzZSB0aGUgLiBhcyBhIHBsYWNlIGhvbGRlciBmb3IgYSB2YXJpYWJsZSAoZS5nLiBpbnN0ZWFkIG9mIHgpCgp4X21lYW4KYGBgCgpOb3RpY2UgaG93IHdlIGFzc2lnbiB0aGUgcmVzdWx0IGF0IHRoZSBzdGFydCBqdXN0IGxpa2Ugd2Ugd291bGQgdXN1YWxseSBkbywgdGhlbiBwaXBlIGZyb20gdGhlbiBvbi4KCkl0IGlzIGFsc28gd29ydGggbWVudGlvbmluZyB0aGF0IGFzIG9mIHZlcnNpb24gNC4xIG9mIFIsIGJhc2UgUiBjb21lcyB3aXRoIGEgbmF0aXZlIHBpcGUgb3BlcmF0b3IuIFRoaXMgaGFzIGp1c3QgYmVlbiBpbnRyb2R1Y2VkLCBhbmQgbWF5IGdldCBtb3JlIHVzZSBpbiBleGFtcGxlcyB5b3UnbGwgc2VlIG9ubGluZSBpbiB0aGUgZnV0dXJlLiBUaGUgc3ludGF4IHVzZXMgYHw+YCBhcyB0aGUgcGlwZSwgYW5kIHRoZSBzdHJ1Y3R1cmUgaXMgdGhlIHNhbWUgYXMgYSBtYWdyaXR0ciBwaXBlLgoKKm5vdGUgdGhhdCB0aGUgbmF0aXZlIHBpcGUgY3VycmVudGx5IGRvZXNuJ3QgaGF2ZSBhIHBsYWNlLWhvbGRlciwgc28gd2Ugd29uJ3QgdXNlIHBhc3RlIGluIHRoaXMgZXhhbXBsZSoKCmBgYHtyfQojIG5hdGl2ZSBSIHBpcGUKeiA8LSBzYW1wbGUoMToxMCwgMjAsIHJlcGxhY2UgPSBUUlVFKQoKel9tZWFuIDwtIHogfD4gCiAgbWVhbigpIHw+CiAgcm91bmQoZGlnaXRzID0gMikKCnpfbWVhbgpgYGAKCklmIHRoZSBhYm92ZSBleGFtcGxlIGRvZXNuJ3Qgd29yaywgaXQgbWVhbnMgeW91IGhhdmUgYSB2ZXJzaW9uIG9mIFIgdGhhdCBpcyBsZXNzIHRoYW4gNC4xLiBSdW4gdGhlIGJlbG93IGNvZGUgY2h1bmsgdG8gdGVzdCBvdXQgeW91ciBSIHZlcnNpb24uIElmIGl0IGlzIGxlc3MgdGhhbiA0LjEgeW91IGNhbiB1cGRhdGUgaXQgYWZ0ZXIgdGhlIHdvcmtzaG9wLgoKYGBge3J9CiMgdGVzdCB5b3VyIHIgdmVyc2lvbgpSLnZlcnNpb24uc3RyaW5nCmBgYAoKV2Ugd2lsbCBiZSB1c2luZyB0aGUgbWFncml0dHIgcGlwZSAoYCU+JWApIGZvciB0aGUgcmVzdCBvZiB0aGlzIHdvcmtzaG9wLCBhcyBpdCdzIGN1cnJlbnRseSB0aGUgcGlwZSBvcGVyYXRvciB5b3Ugd2lsbCBjb21lIGFjcm9zcyBtb3N0IGluIHRoZSByIHdvcmxkLgoKIyMgRXhlcmNpc2UgLSB1c2luZyBwaXBlcwoKVXNpbmcgdGhlIHZlY3RvciBvZiB0ZW1wZXJhdHVyZSBwcm92aWRlZCBhbmQgdXNpbmcgbWFncml0dHIgcGlwZXM6CgoxKSAgUGlwZSBtZWRpYW4gYW5kIHBhc3RlIGZ1bmN0aW9ucyB0b2dldGhlciB0byBnZXQgYSBmaW5hbCByZXN1bHQgdGhhdCBsb29rcyBsaWtlOiAqIm1lZGlhbiB0ZW1wIGlzIDE1IioKMikgIFBpcGUgbWF4IGFuZCBwYXN0ZSBmdW5jdGlvbnMgdG9nZXRoZXIgdG8gZ2V0IGEgZmluYWwgcmVzdWx0IHRoYXQgbG9va3MgbGlrZTogKiJtYXggdGVtcCBpcyAyMCIqCgoqaGludDogZG9uJ3QgZm9yZ2V0IHRvIHVzZSB0aGUgcGxhY2UtaG9sZGVyIHdpdGggcGFzdGUqCgpgYGB7cn0KbGlicmFyeShtYWdyaXR0cikKCnRlbXBlcmF0dXJlIDwtIGMoMTAsIDE2LCAxMiwgMTUsIDE0LCAxNSwgMjApCgojIHlvdXIgY29kZSBoZXJlCgoKYGBgCgojIEludHJvZHVjdGlvbiB0byBkcGx5cgoKRHBseXIgaXMgYSBwYWNrYWdlIHRoYXQgaXMgYnVpbHQgZm9yIGRhdGEgbWFuaXB1bGF0aW9uLCB1c2luZyBmdW5jdGlvbnMgdGhhdCBkZXNjcmliZSB3aGF0IHRoZXkgZG8uIEZvciBleGFtcGxlLCB0aGUgYHNlbGVjdCgpYCBmdW5jdGlvbiBzZWxlY3RzIGNvbHVtbnMgeW91IHdhbnQsIG9yIGRvbid0IHdhbnQsIGZyb20gYSBkYXRhIGZyYW1lLgoKVGhlIGRwbHlyIHBhY2thZ2UgaGFzIGEgbG90IG9mIGZ1bmN0aW9ucyBidWlsdCBpbnRvIHRoZSBwYWNrYWdlLCBlYWNoIGhhcyBpdCdzIG93biB2ZXJ5IGhlbHBmdWwgZG9jdW1lbnRhdGlvbiBwYWdlIHdpdGggZXhhbXBsZXMgLSA8aHR0cHM6Ly9kcGx5ci50aWR5dmVyc2Uub3JnL3JlZmVyZW5jZS9pbmRleC5odG1sPgoKIVtdKGh0dHBzOi8vZ2l0aHViLmNvbS9hbmRyZXdtb2xlczIvclRyYWluSW50cm9kdWN0aW9uL2Jsb2IvbWFpbi9yLWRhdGEtd3JhbmdsaW5nLTEvaW1hZ2VzL2RwbHlyX3dyYW5nbGluZy5wbmc/cmF3PXRydWUpe3dpZHRoPSI1MTYifQoKRHBseXIgZnVuY3Rpb25zIHdvcmsgd2l0aCBhbmQgd2l0aG91dCBwaXBlcyBhbmQgeW91J2xsIHNlZSBib3RoIHdoZW4gc2VhcmNoaW5nIG9ubGluZS4gSWYgdXNpbmcgYSBwaXBlLCB5b3UgY2FsbCB5b3VyIGRhdGEgdGhlbiBwaXBlIHRoYXQgdG8gYSBmdW5jdGlvbiwgc3VjaCBhcyBgZGF0YSAlPiUgbWVhbigpYC4gSWYgeW91IGFyZSBub3QgdXNpbmcgYSBwaXBlLCB5b3UgY2FsbCB5b3VyIGRhdGEgd2l0aGluIHRoZSBmdW5jdGlvbiwgc3VjaCBhcyBgbWVhbihkYXRhKWAuCgpXZSB3aWxsIGZvY3VzIG9uIHR3byBrZXkgZHBseXIgZnVuY3Rpb25zIGZvciBub3c6IGBzZWxlY3QoKWAgYW5kIGBmaWx0ZXIoKWAuIFdlIHdpbGwgdXNlIHRoZSBtZXNzaV9jYXJlZXIgZGF0YSBmb3IgdGhlIGV4YW1wbGVzLiBSdW4gdGhlIGNvZGUgY2h1bmsgYmVsb3cgdG8gZ2V0IHRoZSBkYXRhIGludG8gciBhbmQgaGF2ZSBhIGxvb2sgYXQgaXQuCgpgYGB7cn0KIyBjcmVhdGUgdGhlIG1lc3NpIGNhcmVlciBkYXRhCm1lc3NpX2NhcmVlciA8LSBkYXRhLmZyYW1lKEFwcGVhcmFuY2VzID0gYyg5LDI1LDM2LDQwLDUxLDUzLDU1LDYwLDUwLDQ2LDU3LDQ5LDUyLDU0LDUwLDQ0KSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgR29hbHMgPSBjKDEsOCwxNywxNiwzOCw0Nyw1Myw3Myw2MCw0MSw1OCw0MSw1NCw0NSw1MSwzMSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgIFNlYXNvbiA9IGMoMjAwNCwyMDA1LDIwMDYsMjAwNywyMDA4LDIwMDksMjAxMCwyMDExLDIwMTIsCiAgICAgICAgICAgIDIwMTMsMjAxNCwyMDE1LDIwMTYsMjAxNywyMDE4LDIwMTkpLAogICAgICAgICAgICAgICAgICAgICAgICAgICBDbHViID0gcmVwKCJGQyBCYXJjZWxvbmEiLCAxNiksCiAgICAgICAgICAgICAgICAgICAgICAgICAgQWdlID0gc2VxKDE3LCAzMiksCiAgICAgICAgICAgICAgICAgICAgICAgICAgY2hhbXBMZWFndWVHb2FsID0gYygwLDEsMSw2LDksOCwxMiwxNCw4LDgsMTAsNiwxMSw2LDEyLDMpKQojIHZpZXcgdGhlIGRhdGEKaGVhZChtZXNzaV9jYXJlZXIpCmBgYAoKIyMgU2VsZWN0IGZ1bmN0aW9uCgpUaGUgc2VsZWN0IGZ1bmN0aW9uIHN1YnNldHMgY29sdW1ucyBmcm9tIGEgZGF0YSBmcmFtZSB1c2luZyB0aGVpciBuYW1lLiBUaGVyZSBhcmUgc2V2ZXJhbCBkaWZmZXJlbnQgd2F5cyBvZiB1c2luZyBzZWxlY3QuIFJ1biBlYWNoIG9mIHRoZSBjb2RlIGNodW5rcyBiZWxvdyBhbmQgcmV2aWV3IHRoZSBvdXRwdXRzLgoKRmlyc3QsIHdlIGNhbiBnaXZlIHRoZSBuYW1lcyBvZiB0aGUgY29sdW1ucyB3ZSB3YW50IHRvIHNlbGVjdC4KCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CiMgbG9hZCBkcGx5cgpsaWJyYXJ5KGRwbHlyKQoKIyBzZWxlY3Qgc2luZ2xlIGNvbHVtbgptZXNzaV9jYXJlZXIgJT4lIHNlbGVjdChHb2FscykKCiMgc2VsZWN0IGFsbCBidXQgc2luZ2xlIGNvbHVtbgptZXNzaV9jYXJlZXIgJT4lIHNlbGVjdCgtR29hbHMpCgojIHNlbGVjdCBtdWx0aXBsZSBjb2x1bW5zCm1lc3NpX2NhcmVlciAlPiUgc2VsZWN0KEFwcGVhcmFuY2VzLCBHb2FscywgQWdlKQpgYGAKCkFub3RoZXIgbWV0aG9kIGlzIHVzaW5nIGEgcmFuZ2Ugb2YgY29sdW1ucywga25vd24gYXMgYSBzbGljZS4gSGVyZSB3ZSBhcmUgc2VsZWN0aW5nIGNvbHVtbnMgZnJvbSBTZWFzb24gdG8gQWdlLCB3aGljaCBpbmNsdWRlcyB0aGUgQ2x1YiBjb2x1bW4gYXMgd2VsbC4gV2UgY2FuIGFsc28gY29tYmluZSB0aGlzIHdpdGggdGhlICEgKG5vdCkgb3BlcmF0b3IgdG8gZXhjbHVkZSB0aG9zZSBjb2x1bW5zLgoKYGBge3J9CiMgc2VsZWN0IHNsaWNlIChvciByYW5nZSkgb2YgY29sdW1ucwptZXNzaV9jYXJlZXIgJT4lIHNlbGVjdChTZWFzb246QWdlKQoKIyBzZWxlY3Qgc2xpY2UgYW5kIG90aGVyIGNvbHVtbnMKbWVzc2lfY2FyZWVyICU+JSBzZWxlY3QoQXBwZWFyYW5jZXM6U2Vhc29uLCBjaGFtcExlYWd1ZUdvYWwpCgojIG5lZ2F0ZSBzZWxlY3Rpb24gb2YgY29sdW1ucwptZXNzaV9jYXJlZXIgJT4lIHNlbGVjdCghKFNlYXNvbjpBZ2UpKQoKIyBuZWdhdGUgc2VsZWN0aW9uIHdpdGggc2xpY2UgYW5kIGV4dHJhIGNvbHVtbiAobm90ZSBjKCkgZnVuY3Rpb24gdXNlZCkKbWVzc2lfY2FyZWVyICU+JSBzZWxlY3QoIWMoU2Vhc29uOkFnZSwgY2hhbXBMZWFndWVHb2FsKSkKYGBgCgpBcyB5b3UgY2FuIHNlZSwgYHNlbGVjdCgpYCBtYWtlcyBpdCBlYXN5IHRvIGV4dHJhY3QgY29sdW1ucyBmcm9tIHlvdXIgZGF0YSwgYW5kIGJlY29tZXMgbW9yZSB1c2VmdWwgdGhlIGxhcmdlciB5b3VyIGRhdGFzZXQgYmVjb21lcy4KCkluIHRoZSBleGFtcGxlcyBhYm92ZSB3ZSBkaWQgbm90IGFzc2lnbiB0aGUgcmVzdWx0LiBTZWUgdGhlIGV4YW1wbGVzIGJlbG93IG9uIGhvdyB0byBkbyB0aGlzLgoKYGBge3J9CiMgYXNzaWduIHJlc3VsdCB0byBzdWJzZXQKbWVzc2lfc3ViIDwtIG1lc3NpX2NhcmVlciAlPiUKICBzZWxlY3QoQXBwZWFyYW5jZXMsIEdvYWxzLCBBZ2UpCgptZXNzaV9zdWIKCiMgVGhlIG5vIHBpcGUgbWV0aG9kCm1lc3NpX3N1YiA8LSBzZWxlY3QobWVzc2lfY2FyZWVyLCBBcHBlYXJhbmNlcywgR29hbHMsIEFnZSkKYGBgCgojIyBTZWxlY3QgZXhlcmNpc2UKCkZvciB5b3VyIGV4ZXJjaXNlcywgeW91IHdpbGwgYmUgdXNpbmcgaW1kYiBtb3ZpZSBkYXRhISBJJ3ZlIGxvYWRlZCBpdCBoZXJlIGluIHRoZSBjb2RlIGZvciB5b3UuCgpUaGUgZGF0YSBoYXMgMjIgY29sdW1ucywgc29tZSBvZiB3aGljaCB3ZSB3b24ndCBuZWVkLiBXZSBjYW4gdXNlIGBzZWxlY3RgIHRvIHN1YnNldCBvdXIgZGF0YSB0byBrZWVwIG9ubHkgd2hhdCB3ZSB3YW50LgoKMSkgIFJ1biB0aGUgY29kZSBjdXJyZW50eSBpbiB0aGUgY29kZSBjaHVuayB0byBsb2FkIHRoZSBsaWJyYXJpZXMgYW5kIHRoZSBkYXRhLCBhbmQgcmV2aWV3IHRoZSBvdXRwdXQgZnJvbSBgZ2xpbXBzZSgpYAoyKSAgVXNpbmcgc2VsZWN0IHdpdGggcGlwZXMsIHN1YnNldCB0aGUgYGltZGJfbW92aWVgIGRhdGEgc28geW91IGhhdmUgdGhlIGZvbGxvd2luZyBjb2x1bW5zOiBpbWRiX2lkIHRocm91Z2ggdG8gd3JpdGVyLCBhY3RvcnMsIGF2Z192b3RlIHRvIHZvdGVzLCByZXZpZXdzX2Zyb21fdXNlcnMgdG8gcmV2aWV3c19mcm9tX2NyaXRpY3MuIEFzc2lnbiB0aGUgcmVzdWx0IHRvIGBpbWRiX3N1YmAKMykgIFVzZSBnbGltcHNlIHRvIHJldmlldyB0aGUgc3Vic2V0dGVkIGRhdGE6ICpkYXRhICVcPiUgZ2xpbXBzZSgpKgo0KSAgVGhlcmUgaXMgYSBtb3JlIGVmZmljaWVudCB3YXkgb2YgZG9pbmcgdGhpcyB1c2luZyBzZWxlY3QuIEZyb20gbG9va2luZyBhdCB0aGUgZXhhbXBsZXMgcHJvdmlkZWQsIGNhbiB5b3UgdGhpbmsgb2YgYSBiZXR0ZXIgd2F5IG9mIHRha2luZyBvdXQgdGhlIGNvbHVtbnMgd2UgcmVtb3ZlZD8KCipoaW50OiB5b3Ugc2hvdWxkIGJlIGFibGUgdG8gZml0IHRoaXMgaW50byBvbmUgc2VsZWN0IGNhbGwqCgpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQojIGxvYWQgbGlicmFyaWVzCmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoZHBseXIpCgojIGxvYWQgZGF0YQptb3ZpZXNfaW1kYiA8LSByZWFkX2NzdigiaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL2FuZHJld21vbGVzMi9yVHJhaW5JbnRyb2R1Y3Rpb24vbWFpbi9yLWRhdGEtd3JhbmdsaW5nLTEvZGF0YS9JTURiJTIwbW92aWVzLmNzdiIpCgojIHVzZSBnbGltcHNlIHRvIHJldmlldyBkYXRhICh0aWR5dmVyc2UgdmVyc2lvbiBvZiBzdHIoKSkKbW92aWVzX2ltZGIgJT4lIGdsaW1wc2UoKQoKIyB5b3VyIGNvZGUgaGVyZQoKYGBgCgojIFNlbGVjdCBoZWxwZXIgZnVuY3Rpb25zCgpTbyBmYXIgd2UgaGF2ZSBzZWxlY3RlZCBqdXN0IGNvbHVtbnMgd2UgbmFtZWQsIGJ1dCB0aGVyZSBhcmUgb3RoZXIgbWV0aG9kcyB3ZSBjYW4gdXNlLiBEcGx5ciBoYXMgYSBudW1iZXIgb2YgKmhlbHBlciogZnVuY3Rpb25zIHRoYXQgY29tZSB3aXRoIGBzZWxlY3QoKWAuCgpPbmUgc3VjaCBleGFtcGxlIGlzIHRoZSBgY29udGFpbnMoKWAgZnVuY3Rpb24sIHRoYXQgZmluZHMgY29sdW1ucyB0aGF0IGNvbnRhaW4gdGhlIHN0cmluZyBhIHN0cmluZy4gVGhpcyBpcyBhIHVzZWZ1bCBvcHRpb24gaWYgeW91IGp1c3Qgd2FudCB0byBwaWNrIG91dCBjb2x1bW5zIHRoYXQgaGF2ZSBzb21lIHNpbWlsYXIgdGV4dCBpbiB0aGVtLgoKYGBge3J9CiMgc2VsZWN0IGJ5IGxpdGVyYWwgc3RyaW5nCm1lc3NpX2NhcmVlciAlPiUgc2VsZWN0KGNvbnRhaW5zKCJHb2FsIikpCmBgYAoKT3RoZXIgb3B0aW9ucyBhcmUgdGhlIGBzdGFydHNfd2l0aCgpYCBvciBgZW5kc193aXRoKClgIGhlbHBlcnMuIFlvdSBwcm92aWRlIGEgc3RyaW5nIG9mIHdoYXQgeW91ciBjb2x1bW4gZWl0aGVyIHN0YXJ0cyB3aXRoIG9yIGVuZHMgd2l0aCwgYW5kIHRoZXkgd2lsbCBiZSBzZWxlY3RlZC4KCmBgYHtyfQojIGNvbHVtbnMgc3RhcnRpbmcgd2l0aCBBCm1lc3NpX2NhcmVlciAlPiUKICBzZWxlY3Qoc3RhcnRzX3dpdGgoIkEiKSkKCiMgY29sdW1ucyBlbmRpbmcgd2l0aCBzCm1lc3NpX2NhcmVlciAlPiUKICBzZWxlY3QoZW5kc193aXRoKCJzIikpCgojIGNvbHVtbnMgbm90IHN0YXJ0aW5nIHdpdGggQQptZXNzaV9jYXJlZXIgJT4lCiAgc2VsZWN0KCFzdGFydHNfd2l0aCgiQSIpKQpgYGAKCiMjIFNlbGVjdCBoZWxwZXIgZXhlcmNpc2UKClVzaW5nIHRoZSBpbWRiX3N1YiBkYXRhc2V0IHlvdSBtYWRlIGluIHRoZSBwcmV2aW91cyBleGVyY2lzZToKCjEpICBGaW5kIGNvbHVtbnMgaW4gaW1kYl9zdWIgdGhhdCBjb250YWluICJ2b3RlIgoyKSAgRmluZCBjb2x1bW5zIGluIGltZGJfc3ViIHRoYXQgc3RhcnQgd2l0aCAiZCIKMykgIEZpbmQgY29sdW1ucyBpbiBpbWRiX3N1YiB0aGF0IGVuZCB3aXRoICJlIgo0KSAgRmluZCBjb2x1bW5zIGluIGltZGJfc3ViIHRoYXQgZWl0aGVyIHN0YXJ0IHdpdGggImQiIG9yIGVuZCB3aXRoICJlIiAqaGludDogeW91IGNhbiB1c2UgYW4gb3IgKGB8YCkgc3RhdGVtZW50IHdpdGggc2VsZWN0KgoKYGBge3J9CiMgeW91ciBjb2RlIGhlcmUKCmBgYAoKIyBVc2luZyBzZWxlY3QgdG8gY2hhbmdlIGNvbHVtbiBvcmRlcgoKSXQgaXMgYWxzbyBoZWxwZnVsIHRvIGNoYW5nZSB0aGUgb3JkZXIgb2YgeW91ciBjb2x1bW5zLCBhbmQgeW91IGNhbiB1c2UgYHNlbGVjdGAgdG8gZG8gdGhpcy4KCklmIHdlIHdhbnRlZCB0byBtb3ZlIHRoZSBjbHViIGNvbHVtbiBhcyB0aGUgZmlyc3QgY29sdW1uIGluIG91ciBtZXNzaV9jYXJlZXIgZGF0YSwgd2UgY291bGQgZG8gaXQgbWFudWFsbHkgYnV0IG5hbWluZyBhbGwgdGhlIGNvbHVtbnMgbGlrZSB0aGUgZXhhbXBsZSBiZWxvdy4KCmBgYHtyfQojIG1hbnVhbGx5Cm1lc3NpX2NhcmVlciAlPiUKICBzZWxlY3QoQ2x1YiwgQXBwZWFyYW5jZXMsIEdvYWxzLCBTZWFzb24sIEFnZSwgY2hhbXBMZWFndWVHb2FsKQpgYGAKClRoaXMgY291bGQgZ2V0IHJlYWxseSBtZXNzeSBpZiB5b3UgaGF2ZSBsb3RzIG9mIGRhdGEuIFR3byBoZWxwZXIgZnVuY3Rpb25zIG1ha2UgdGhpcyBtdWNoIGVhc2llcjogYGV2ZXJ5dGhpbmcoKWAgYW5kIGBsYXN0X2NvbCgpYC4gRXZlcnl0aGluZyBzZWxlY3RzIGV2ZXJ5IGNvbHVtbiBub3QgYWxyZWFkeSBzcGVjaWZpZWQsIHNvIGlzIHVzZWZ1bCBpZiB3ZSB3YW50IHRvIG1vdmUgYSBjb2x1bW4gdG8gdGhlIGZpcnN0IGNvbHVtbiBpbiB0aGUgZGF0YXNldC4KCmBgYHtyfQojIG1vdmUgY2x1YiB0byBmaXJzdCBjb2x1bW4KbWVzc2lfY2FyZWVyICU+JQogIHNlbGVjdChDbHViLCBldmVyeXRoaW5nKCkpCmBgYAoKTGFzdCBjb2wgY2FsbHMgdGhlIGxhc3QgY29sdW1uIGluIHlvdXIgZGF0YSBmcmFtZSwgc28gd2UgY2FuIGNhbGwgYGxhc3RfY29sKClgIHRvIG1vdmUgJ2NoYW1wTGVhZ3VlR29hbCcgdG8gdGhlIGZpcnN0IGNvbHVtbiwgdGhlbiB1c2UgZXZlcnl0aGluZyB0byBrZWVwIHRoZSByZXN0IG9mIHRoZSBjb2x1bW5zIGFzIHRoZXkgYXJlLgoKYGBge3J9CiMgbW92ZSBsYXN0IGNvbHVtbiB0byBmaXJzdCBjb2x1bW4KbWVzc2lfY2FyZWVyICU+JQogIHNlbGVjdChsYXN0X2NvbCgpLCBldmVyeXRoaW5nKCkpCmBgYAoKQW5vdGhlciBvcHRpb24gaXMgdG8gdXNlIHRoZSBgcmVsb2NhdGUoKWAgZnVuY3Rpb24uIFRoaXMgaGFzIHRoZSBzYW1lIHN5bnRheCBhcyBzZWxlY3QsIGJ1dCBoYXMgZXh0cmEgZnVuY3Rpb25hbGx5IGZvciBtb3ZpbmcgY29sdW1ucyB3aXRoIHRoZSBgLmFmdGVyYCBhbmQgYC5iZWZvcmVgIGFyZ3VtZW50cy4KCkJ5IGRlZmF1bHQsIHJlbG9jYXRlIHdpbGwgbW92ZSB0aGUgY29sdW1uIHlvdSBzcGVjaWZ5IHRvIHRoZSBmaXJzdCBjb2x1bW4uCgpgYGB7cn0KIyBkZWZhdWx0IG1vdmVzIHRvIGZpcnN0IGNvbHVtbgptZXNzaV9jYXJlZXIgJT4lCiAgcmVsb2NhdGUoQ2x1YikKYGBgCgpXZSBjYWxsIGAuYWZ0ZXJgIGFuZCBgLmJlZm9yZWAgbGlrZSB0aGUgZXhhbXBsZXMgYmVsb3cuIFdlIGNhbiBhbHNvIG1vdmUgbW9yZSB0aGFuIG9uZSBjb2x1bW4uCgpgYGB7cn0KIyBtb3ZlIGNsdWIgdG8gY29sIGFmdGVyIGNoYW1wTGVhZ3VlR29hbAptZXNzaV9jYXJlZXIgJT4lCiAgcmVsb2NhdGUoQ2x1YiwgLmFmdGVyID0gY2hhbXBMZWFndWVHb2FsKQoKIyBtb3ZlIGNsdWIgdG8gY29sIGJlZm9yZSBjaGFtcExlYWd1ZUdvYWwKbWVzc2lfY2FyZWVyICU+JQogIHJlbG9jYXRlKENsdWIsIEdvYWxzLCAuYmVmb3JlID0gY2hhbXBMZWFndWVHb2FsKQoKYGBgCgojIyBDb2x1bW4gb3JkZXJpbmcgZXhlcmNpc2UKClVzaW5nIHRoZSBleGFtcGxlcyBhYm92ZToKCjEpICBNb3ZlIHRoZSBgeWVhcmAgY29sdW1uIHRvIGJlIHRoZSBmaXJzdCBjb2x1bW4gaW4gdGhlIGBpbWRiX3N1YmAgZGF0YSBmcmFtZQoyKSAgTW92ZSB0aGUgYGF2Z192b3RlYCBjb2x1bW4gdG8gYmUgYWZ0ZXIgdGhlIGB5ZWFyYCBjb2x1bW4KCmBgYHtyfQojIHlvdXIgY29kZSBoZXJlCgpgYGAKCiMgRmlsdGVyIGZ1bmN0aW9uCgpUaGUgZmlsdGVyIGZ1bmN0aW9uIGFsbG93cyB5b3UgdG8gc3Vic2V0IHJvd3MgYmFzZWQgb24gY29uZGl0aW9ucywgdXNpbmcgY29uZGl0aW9uYWwgb3BlcmF0b3JzICg9PSwgXDw9LCAhPSBldGMuKS4gSXQgaXMgc2ltaWxhciB0byB0aGUgYmFzZSByIGBzdWJzZXQoKWAgZnVuY3Rpb24gd2hpY2ggd2UgaGF2ZSB1c2VkIGluIHByZXZpb3VzIFIgd29ya3Nob3BzLiBUaGUgdGFibGUgYmVsb3cgaXMgYSByZW1pbmRlciBvZiB0aGUgY29uZGl0aW9uYWwgb3BlcmF0b3JzIHlvdSBjYW4gdXNlLgoKfCBPcGVyYXRvciAgIHwgTWVhbmluZyAgICAgICAgICAgICAgICAgIHwKfC0tLS0tLS0tLS0tLXwtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLXwKfCBgPmAgICAgICAgIHwgR3JlYXRlciB0aGFuICAgICAgICAgICAgIHwKfCBgPj1gICAgICAgIHwgR3JlYXRlciB0aGFuIG9yIGVxdWFsIHRvIHwKfCBgPGAgICAgICAgIHwgTGVzcyB0aGFuICAgICAgICAgICAgICAgIHwKfCBgPD1gICAgICAgIHwgTGVzcyB0aGFuIG9yIGVxdWFsIHRvICAgIHwKfCBgPT1gICAgICAgIHwgRXF1YWwgdG8gICAgICAgICAgICAgICAgIHwKfCBgIT1gICAgICAgIHwgTm90IGVxdWFsIHRvICAgICAgICAgICAgIHwKfCBgIVhgICAgICAgIHwgTk9UIFggICAgICAgICAgICAgICAgICAgIHwKfCBgWGAgICAgICAgIHwgWSAgICAgICAgICAgICAgICAgICAgICAgIHwKfCBgWCAmIFlgICAgIHwgWCBBTkQgWSAgICAgICAgICAgICAgICAgIHwKfCBgWCAlaW4lIFlgIHwgaXMgWCBpbiBZICAgICAgICAgICAgICAgIHwKCkp1c3QgbGlrZSB3aGVuIHVzaW5nIGBzZWxlY3RgLCB5b3UgcHJvdmlkZSB0aGUgY29sdW1uIG5hbWUgeW91IHdhbnQgdG8gYXBwbHkgY29uZGl0aW9uYWwgbG9naWMgdG8uIElmIHlvdSBhcmUgcGlwaW5nLCB5b3UgZG9uJ3QgbmVlZCB0byBwcm92aWRlIHlvdXIgZGF0YSBhcyBhbiBhcmd1bWVudCBpbiB0aGUgZnVuY3Rpb24uCgohW10oaHR0cHM6Ly9naXRodWIuY29tL2FuZHJld21vbGVzMi9yVHJhaW5JbnRyb2R1Y3Rpb24vYmxvYi9tYWluL3ItZGF0YS13cmFuZ2xpbmctMS9pbWFnZXMvZHBseXJfZmlsdGVyLmpwZWc/cmF3PXRydWUpe3dpZHRoPSI1MTYifQoKUnVuIHRoZSBleGFtcGxlcyBiZWxvdyBhbmQgcmV2aWV3IHRoZSBvdXRwdXRzLgoKYGBge3J9CiMgZmlsdGVyIGJhc2VkIG9uIG9uZSBjcml0ZXJpYQptZXNzaV9jYXJlZXIgJT4lIGZpbHRlcihHb2FscyA+IDUwKQoKIyBmaWx0ZXIgdGhlbiBwaXBlIHRvIHNlbGVjdAptZXNzaV9jYXJlZXIgJT4lIGZpbHRlcihBcHBlYXJhbmNlcyA+PSA1NSkgJT4lCiAgc2VsZWN0KFNlYXNvbiwgQWdlKQoKIyBmaWx0ZXIgb24gbW9yZSB0aGFuIG9uZSBjb25kaXRpb24KbWVzc2lfY2FyZWVyICU+JSBmaWx0ZXIoR29hbHMgPiA1MCAmIGNoYW1wTGVhZ3VlR29hbCA8PSAxMCkKCiMgZmlsdGVyIG9uIGF2ZXJhZ2UKbWVzc2lfY2FyZWVyICU+JSBmaWx0ZXIoR29hbHMgPiBtZWFuKEdvYWxzLCBuYS5ybSA9IFRSVUUpKQpgYGAKClRvIGFzc2lnbiB0aGUgcmVzdWx0IHRvIGEgbmV3IGRhdGEgZnJhbWUgKHN1YnNldCkgd2UgdXNlIHRoZSBhc3NpZ25tZW50IG9wZXJhdG9yIGF0IHRoZSBiZWdpbm5pbmcgb3IgdGhlIGVuZCBvZiBvdXIgY29kZTsgaGVyZSB3ZSBoYXZlIGp1c3Qgc2hvd24gdGhlIGJlZ2lubmluZywgaW4gdGhlIHBpcGVzIHNlY3Rpb24gd2Ugc2hvdyBib3RoIHZlcnNpb25zLgoKYGBge3J9CiMgYXNzaWduIHJlc3VsdCB0byBtZXNzaV9zdWIKbWVzc2lfc3ViIDwtIG1lc3NpX2NhcmVlciAlPiUKICBmaWx0ZXIoQXBwZWFyYW5jZXMgPD0gNDApICU+JQogIHNlbGVjdChHb2FscywgQWdlKQoKIyB2aWV3IHJlc3VsdAptZXNzaV9zdWIKYGBgCgojIyBGaWx0ZXIgZXhlcmNpc2UKCldlIGFyZSBnb2luZyB0byBmaWx0ZXIgb3VyIHN1YnNldHRlZCAoYGltZGJfc3ViYCkgZGF0YSB0byBmaW5kIHRoZSBiZXN0IHJhdGVkIGZpbG1zIGZyb20gdGhlIFVTQSBpbiB0aGUgeWVhciAxOTg5LCBhbmQgY3JlYXRlIGEgc3Vic2V0IGNhbGxlZCBVU0FfMTk4OV9oaWdoLgoKMSkgIFBpcGUgZnJvbSBpbWRiX3N1YiB0byBmaWx0ZXIsIGZpbHRlcmluZyBmb3IgY291bnRyeSBiZWluZyBlcXVhbCB0byBVU0EKMikgIFBpcGUgZnJvbSB5b3VyIGNvdW50cnkgZmlsdGVyIHRvIGFub3RoZXIgZmlsdGVyLCBmaWx0ZXJpbmcgZm9yIHllYXIgYmVpbmcgZXF1YWwgdG8gMTk4OQozKSAgUGlwZSBmcm9tIHlvdXIgeWVhciBmaWx0ZXIgdG8gYW5vdGhlciBmaWx0ZXIuIEZpbHRlciBmb3IgYXZnX3ZvdGUgdG8gYmUgZ3JlYXRlciB0aGFuIG9yIGVxdWFsIHRvIDcuNSBhbmQgcmV2aWV3c19mcm9tX2NyaXRpY3MgdG8gYmUgZ3JlYXRlciB0aGFuIDEwCjQpICBNYWtlIHN1cmUgdG8gYXNzaWduIHlvdXIgcmVzdWx0IHRvIFVTQV8xOTg5X2hpZ2gKNSkgIFByaW50IHRoZSByZXN1bHQgdG8gc2VlIHRoZSBoaWdoZXN0IHJhdGVkIGZpbG1zLCBtYWRlIGluIHRoZSBVU0EsIGluIDE5ODkuCjYpICBEbyB5b3UgdGhpbmsgeW91IGNhbiBwdXQgdGhpcyBpbnRvIG9uZSBmaWx0ZXIgY29tbWFuZCB1c2luZyB0aGUgJiBvcGVyYXRvcj8KCmBgYHtyfQojIHlvdXIgY29kZSBoZXJlCgpgYGAKCllvdSBtaWdodCBoYXZlIG5vdGljZWQgdGhhdCB0aGUgY291bnRyeSBjb2x1bW4gaGFzIHNvbWUgc3RyaW5ncyB0aGF0IGFyZSBzcGxpdCBieSBhIGNvbW1hLCBlLmcuICJHZXJtYW55LCBEZW5tYXJrIi4gVGhlID09IG9wZXJhdG9yIHdpbGwgbm90IGJlIGFibGUgdG8gcGljayB0aGVzZSB1cC4gSW5zdGVhZCB3ZSB3b3VsZCB1c2UgdGhlIGJhc2UgUiBgZ3JlcGwoKWAgZnVuY3Rpb24gb3IgYHN0cl9kZXRlY3QoKWAgZnJvbSB0aGUgYHN0cmluZ3JgIHBhY2thZ2UuIFRoaXMgd29uJ3QgYmUgY292ZXJlZCBpbiB0aGlzIHdvcmtzaG9wLCBidXQgd2lsbCBiZSBpbiBmdXR1cmUgd29ya3Nob3BzLiBJZiB5b3UgYXJlIGludGVyZXN0ZWQsIGhhdmUgYSBsb29rIGF0IHRoZSBzdHJpbmdyIHBhY2thZ2UgLSA8aHR0cHM6Ly9zdHJpbmdyLnRpZHl2ZXJzZS5vcmcvaW5kZXguaHRtbD4uCgojIE90aGVyIGZpbHRlcmluZyBvcHRpb25zIHdpdGggZHBseXIKCk90aGVyIHRoYW4gY29uZGl0aW9uYWwgc3Vic2V0dGluZyBvZiBkYXRhIHVzaW5nIGBmaWx0ZXIoKWAsIGRwbHlyIGhhcyBvdGhlciBmdW5jdGlvbnMgd2UgY2FuIHVzZSB0byBzdWJzZXQgb3VyIGRhdGE6IGBzbGljZWAsIGBzYW1wbGVgLCBhbmQgYGRpc3RpbmN0LmAKClRoZSBzYW1wbGUgZnVuY3Rpb25zIHJhbmRvbWx5IGV4dHJhY3QgYSBzZXQgbnVtYmVyIG9mIHJvd3MgZnJvbSB5b3VyIGRhdGEuIFRoaXMgaXMgaGVscGZ1bCBpZiB5b3Ugd2FudCB0byB0YWtlIGEgcmFuZG9tIHNhbXBsZSBvZiB5b3VyIGRhdGFzZXQuIFRoZSBleGFtcGxlcyBiZWxvdyBzaG93IHRoZSBgc2FtcGxlX24oKWAgYW5kIGBzYW1wbGVfZnJhYygpYCBmdW5jdGlvbnMuIAoKYGBge3J9CiMgc2FtcGxlIDUgcm93cwptZXNzaV9jYXJlZXIgJT4lCiAgc2FtcGxlX24oNSkKCiMgc2FtcGxlIDI1JSBvZiB5b3VyIGRhdGEKbWVzc2lfY2FyZWVyICU+JQogIHNhbXBsZV9mcmFjKDAuMjUpCmBgYAoKVGhlIHNsaWNlIGZ1bmN0aW9ucyBhcmUgbW9yZSB1c2VmdWwuIFRoZSBiYXNpYyBgc2xpY2VgIGZ1bmN0aW9uIGlzIHRoZSBlcXVpdmFsZW50IG9mIHVzaW5nIG51bWJlcmVkIGluZGV4aW5nIGluIGJhc2UgciBgZGF0YVsxOjUsIF1gLCBidXQgaXMgZGVzaWduZWQgdG8gd29yayBiZXR0ZXIgaW4gdGhlIHRpZHl2ZXJzZSBlbnZpcm9tZW50LiAKYGBge3J9CiMgc2VsZWN0IHJvd3MgNCwgNSwgYW5kIDYKbWVzc2lfY2FyZWVyICU+JQogIHNsaWNlKDQ6NikKCiMgZXF1aXZhbGVudCBpbiBiYXNlIHIKbWVzc2lfY2FyZWVyWzQ6NiwgXQpgYGAKClRoZSBgc2xpY2VfbWF4YCBhbmQgYHNsaWNlX21pbmAgZnVuY3Rpb25zIGFyZSBtdWNoIG1vcmUgcG93ZXJmdWwsIGFuZCBhcmUgaGFyZGVyIGFuZCBtZXNzaWVyIHRvIGFjaGlldmUgd2l0aCBub3JtYWwgYmFzZSByIGNvZGUuIFRoZXkgYWxsb3cgeW91IHRvIGluZGV4IHRoZSByb3dzIHRoYXQgaGF2ZSB0aGUgbWF4IChvciBtaW4pIGluIGEgc3BlY2lmaWVkIGNvbHVtbi4gSW4gdGhlIGV4YW1wbGUsIHdlIGV4dHJhY3QgdGhlIHJvd3MgdGhhdCBoYXZlIHRoZSB0b3AgdGhyZWUgYW5kIGJvdHRvbSB0aHJlZSB2YWx1ZXMgaW4gdGhlIEdvYWxzIGNvbHVtbi4gCmBgYHtyfQojIGV4dHJhY3Qgcm93cyB3aXRoIHRvcCB0aHJlZSBHb2FscwptZXNzaV9jYXJlZXIgJT4lCiAgc2xpY2VfbWF4KEdvYWxzLCBuID0gMykKCiMgdGhpcyBoYXJkZXIgYW5kIGxlc3MgY2xlYXIgaW4gYmFzZSByCm1lc3NpX2NhcmVlclttZXNzaV9jYXJlZXIkR29hbHMgJWluJSB0YWlsKHNvcnQobWVzc2lfY2FyZWVyJEdvYWxzKSwgMyksIF0KCiMgZXh0cmFjdCByb3dzIHdpdGggYm90dG9tIHRocmVlIEdvYWxzCm1lc3NpX2NhcmVlciAlPiUKICBzbGljZV9taW4oR29hbHMsIG4gPSAzKQpgYGAKCiMjIEZpbHRlcmluZyBjb250aW51ZWQgZXhlcmNpc2UKCkluIHRoaXMgZXhlcmNpc2UgeW91IHdpbGwgbmVlZCB0byBkZWJ1ZyBteSBjb2RlIHRvIGdldCBpdCB3b3JraW5nLiBXZSB3aWxsIGZpbHRlciB0aGUgaW1kYl9zdWIgZGF0YSBmb3IgZmlsbXMgb3ZlciAxMjAgbWludXRlcywgYW5kIGluIHRoZSBVU0EsIHRoZW4gZXh0cmFjdCB0aGUgdG9wIDIwIHJhdGVkIGZpbG1zLiAgCgpJZiB5b3UgZ2V0IGl0IHdvcmtpbmcgeW91ciBgdG9wX3ZvdGVzX1VTQWAgZGF0YSBmcmFtZSBzaG91bGQgaGF2ZSAyMCByb3dzIGFuZCA0IGNvbHVtbnMgKHRpdGxlLCB5ZWFyLCBnZW5yZSBhbmQgYXZnX3ZvdGUpIHdpdGggZmlsbXMgc3VjaCBhcyAqVGhlIFNoYXdzaGFuayBSZWRlbXB0aW9uKiBhbmQgKnRoZSBHb2RmYXRoZXIqLiBBcyBhIGJvbnVzLCBpZiB5b3UgZ2V0IHlvdXIgY29kZSB3b3JraW5nLCB0aGUgcGxvdCBhdCB0aGUgZW5kIG9mIHRoZSBjb2RlIHdpbGwgcnVuISAKCmBgYHtyIGV2YWw9RkFMU0V9CiMgeW91ciBjb2RlIGhlcmUKdG9wX3ZvdGVzX1VTQSA8LSBpbWRiX3N1YiAlPiUKICBmaWx0ZXIoZHVyYXRpb24gPj0gMTIwICYgY291bnRyeSA9ICJVU0EiKSB8PgogIHNsaWNlbWF4KGF2Z3ZvdGUsIG4gPSAyMCkgJT4lCiAgc2VsZWN0KHRpdGxlIHllYXIsIGdlbnJlLCBhdmdfdm90ZSkKCnRvcF92b3Rlc19VU0EKCiMgZnVuIGV4dHJhLCBwbG90IHRoZSBvdXRwdXQgb2YgeW91ciBkZWJ1Z2dpbmchIApwbG90KHRvcF92b3Rlc19VU0EkeWVhciwgdG9wX3ZvdGVzX1VTQSRhdmdfdm90ZSwKICAgICBjb2wgPSAib3JhbmdlIiwgIyBwb2ludCBjb2xvdXIKICAgICBwY2ggPSAxNiwgIyBwb2ludCB0eXBlCiAgICAgY2V4ID0gMS41LCAjIHBvaW50IHNpemUKICAgICB4bGFiID0gIlllYXIiLAogICAgIHlsYWIgPSAiQXZlcmFnZSB2b3RlIikgCgpgYGAKCgojIEZpbmFsIHRhc2sgLSBQbGVhc2UgZ2l2ZSB1cyB5b3VyIGluZGl2aWR1YWwgZmVlZGJhY2shCgpXZSB3b3VsZCBiZSBncmF0ZWZ1bCBpZiB5b3UgY291bGQgdGFrZSBhIG1pbnV0ZSBiZWZvcmUgdGhlIGVuZCBvZiB0aGUgd29ya3Nob3Agc28gd2UgY2FuIGdldCB5b3VyIGZlZWRiYWNrIQoKPGh0dHBzOi8vbHNlLmV1LnF1YWx0cmljcy5jb20vamZlL2Zvcm0vU1ZfZWZsYzJ5ajRwY3J5YzYyP2NvdXJzZW5hbWU9UiUyMERhdGElMjBXcmFuZ2xpbmclMjAxOiUyMFBpcGVzJTIwYW5kJTIwaW50cm9kdWN0aW9uJTIwdG8lMjBkcGx5ciVDMiVBMCVDMiVBMCZ0b3BpYz1SJmxpbms9aHR0cHM6Ly9sc2VjbG91ZC5zaGFyZXBvaW50LmNvbS86Zjovcy9URUFNX0FQRC1EU0wtRGlnaXRhbC1Ta2lsbHMtVHJhaW5lcnMvRWtObDFUbEZnRjlBcExzS1NQLWxxVFVCaU1DTmx6Y3FCOHBZMFczSUpJM1dZUT9lPVNpMkk5QiZwcm9nPURTJnZlcnNpb249MjEtMjI+CgpUaGUgc29sdXRpb25zIHdlIGJlIGF2YWlsYWJsZSBmcm9tIGEgbGluayBhdCB0aGUgZW5kIG9mIHRoZSBzdXJ2ZXkuCgojIEluZGl2aWR1YWwgY29kaW5nIGNoYWxsZW5nZQoKRm9yIHRoaXMgY29kaW5nIGNoYWxsZW5nZSB3ZSBhcmUgZ29pbmcgdG8gZXh0cmFjdCBhbGwgVG9sa2llbiAobG9yZCBvZiB0aGUgcmluZ3MgYW5kIGhvYmJpdCkgYW5kIEhhcnJ5IFBvdHRlciBmaWxtcyBmcm9tIG91ciBpbWRiIGRhdGFzZXQuIFdlIGhhdmUgcHJvdmlkZWQgdmVjdG9ycyB3aXRoIHRoZSB0aXRsZXMgb2YgdGhlc2UgZmlsbXMuCgoxKSAgVXNpbmcgdGhlIFRvbGtpZW4gYW5kIFBvdHRlciB2ZWN0b3JzLCB1c2UgdGhlIGAlaW4lYCBvcGVyYXRvciB0byBmaWx0ZXIgdGl0bGVzIGluIHRoZSBpbWRiIGRhdGFzZXQgdGhhdCBtYXRjaCB0aGUgVG9sa2llbiBvciBQb3R0ZXIgdmVjdG9ycy4KMikgIFNlbGVjdCBvdXQgdGhlIHRpdGxlLCB5ZWFyLCBhdmdfdm90ZSwgYW5kIGR1cmF0aW9uIGNvbHVtbnMKMykgIFNhdmUgeW91ciBzdWJzZXR0ZWQgZGF0YSB0byBhIGRhdGEgZnJhbWUgY2FsbGVkIFRvbGtpZW5fUG90dGVyCjQpICBXaGF0IGZpbG1zIGluIHRoZSBUb2xraWVuX1BvdHRlciBkYXRhc2V0IGhhdmUgYSBoaWdoZXIgdGhhbiBhdmVyYWdlIHZvdGU/CjUpICBXaGF0IGZpbG1zIGluIHRoZSBUb2xraWVuX1BvdHRlciBkYXRhc2V0IGhhdmUgYSBsZXNzIHRoYW4gYXZlcmFnZSBkdXJhdGlvbiBpbiBob3Vycz8KCipoaW50OiBmb3IgNCBhbmQgNSB5b3UgY2FuIHVzZSBmaWx0ZXIgdG8gY29tcGFyZSB0aGUgY29sdW1uIHRvIHRoZSBtZWFuIG9mIHRoYXQgY29sdW1uLCBlLmcuIGZpbHRlcihkYXRhLCBjb2x1bW4gXD4gbWVhbihjb2x1bW4pKSoKCmBgYHtyfQpUb2xraWVuIDwtIGMoIlRoZSBMb3JkIG9mIHRoZSBSaW5nczogVGhlIEZlbGxvd3NoaXAgb2YgdGhlIFJpbmciLCAiVGhlIExvcmQgb2YgdGhlIFJpbmdzOiBUaGUgUmV0dXJuIG9mIHRoZSBLaW5nIiwKICAgICAgICAgICAiVGhlIExvcmQgb2YgdGhlIFJpbmdzOiBUaGUgVHdvIFRvd2VycyIsICJUaGUgSG9iYml0OiBBbiBVbmV4cGVjdGVkIEpvdXJuZXkiLAogICAgICAgICAgICJUaGUgSG9iYml0OiBUaGUgRGVzb2xhdGlvbiBvZiBTbWF1ZyIsICJUaGUgSG9iYml0OiBUaGUgQmF0dGxlIG9mIHRoZSBGaXZlIEFybWllcyIpCgpQb3R0ZXIgPC0gYygiSGFycnkgUG90dGVyIGFuZCB0aGUgU29yY2VyZXIncyBTdG9uZSIsICJIYXJyeSBQb3R0ZXIgYW5kIHRoZSBDaGFtYmVyIG9mIFNlY3JldHMiLAogICAgICAgICAgICAiSGFycnkgUG90dGVyIGFuZCB0aGUgUHJpc29uZXIgb2YgQXprYWJhbiIsICJIYXJyeSBQb3R0ZXIgYW5kIHRoZSBHb2JsZXQgb2YgRmlyZSIsCiAgICAgICAgICAgICJIYXJyeSBQb3R0ZXIgYW5kIHRoZSBPcmRlciBvZiB0aGUgUGhvZW5peCIsICJIYXJyeSBQb3R0ZXIgYW5kIHRoZSBIYWxmLUJsb29kIFByaW5jZSIsCiAgICAgICAgICAgICJIYXJyeSBQb3R0ZXIgYW5kIHRoZSBEZWF0aGx5IEhhbGxvd3M6IFBhcnQgMSIsICJIYXJyeSBQb3R0ZXIgYW5kIHRoZSBEZWF0aGx5IEhhbGxvd3M6IFBhcnQgMiIpCgojIHlvdXIgY29kZSBoZXJlCgpgYGAK